home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
filutil
/
pa_st270.zip
/
EXAMPLE5.POM
< prev
next >
Wrap
Text File
|
1995-02-01
|
853b
|
36 lines
;
; NOTE: A quick-reference summary of POM commands appears in EXAMPLE4.POM
;
;-----------------------------------------------------------------------------
;
; Divide up the input line because it is more than 255 characters wide
;
SPLIT 005-100 102-168 170-300
;
; Extract the fields
;
IF LineNum = "" THEN Name = $FLUPC[ 1 35]
IF LineNum = "1" THEN Phone = $FLINE[53 67]
IF LineNum = "2" THEN Descrip = $FLINE[ 1 76]
;
; Remove surrounding spaces
;
TRIM Name "B" " "
TRIM Phone "B" " "
TRIM Descrip "B" " "
;
; Build the line (but be sure that no OUT or OUTEND outputs over 255 characters)
;
OUT LineNum = "" |"{Name}",
OUT LineNum = "1" |"{Phone}",
OUTEND LineNum = "2" |"{Descrip}"
;
; Reset line counter
;
IF LineNum = "2" THEN LineNum = "" ELSE LineNum+